home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
thor
/
thor24arexx.lha
/
GoldED
/
PreviewMsg.ged
< prev
next >
Wrap
Text File
|
1996-11-11
|
965b
|
46 lines
/* PreviewMsg.ged by Troels Walsted Hansen
** $VER: PreviewMsg.ged v1.00 (09.06.95)
**
** An ARexx script that shows you (in THOR's messagetext listview)
** what your message will look like when read by others in THOR.
*/
options results
/* needs GoldED and THOR functions */
if(substr(address(),1,6) ~= "GOLDED") then
do
say "This script should only be started from inside GoldED."
exit 20
end
else gedport = address()
p = ' ' || address() || ' ' || show('P',,)
thorport = pos(' THOR.',p)
if thorport > 0 then thorport = word(substr(p,thorport+1),1)
else
do
say 'No THOR port found!'
exit 10
end
/* preview msg text in THOR */
address(gedport)
QUERY DOC VAR OLDNAME
SAVE ALL NAME '"t:PreviewMsg.fse.temp.file"'
NAME NEW oldname
address(thorport)
THORTOFRONT
SHOWTEXT 't:PreviewMsg.fse.temp.file'
if(rc ~= 0) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
/* cleanup and exit */
address command
'delete >nil: t:PreviewMsg.fse.temp.file'
exit